home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / icons+tools / iconian / sources / emodules / mod / boopsi.e < prev    next >
Text File  |  1995-12-22  |  577b  |  25 lines
  1.  
  2. OPT PREPROCESS
  3. OPT MODULE
  4. OPT EXPORT
  5.  
  6. MODULE    'intuition/classes'
  7. MODULE    'utility/hooks'
  8. MODULE    'intuition/classusr'
  9.  
  10. PROC coerceMethodA(class:PTR TO iclass,object:PTR TO object,msg)
  11.     DEF dispatcher:PTR TO hook
  12.     DEF entry
  13.     dispatcher:=class.dispatcher
  14.     entry:=dispatcher.entry
  15.     MOVE.L    dispatcher,A0
  16.     MOVE.L    object,A2
  17.     MOVE.L    msg,A1
  18.     MOVE.L    entry,A3
  19.     JSR    (A3)
  20.     MOVE.L    D0,msg
  21. ENDPROC msg
  22.  
  23. PROC doMethodA(object:PTR TO object,msg) IS coerceMethodA(object.class,object,msg)
  24. PROC doSuperMethodA(class:PTR TO iclass,object:PTR TO object,msg) IS coerceMethodA(class.super,object,msg)
  25.